home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ Regedit clear.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  1.3 KB  |  41 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Built in Windows Apps\RegEdit"
  5. "NAME"="Clear last active key"
  6. "OSVERSION"="00011"
  7. "VERSION"="1.13"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Clear last active key"
  10. "DESCRIPTION 1"="New in Windows ME and 2000, REGEDIT keeps a record of the last key you viewed/edited, so that it will open this directly the next time you launch the program."
  11. "DESCRIPTION 2"="Hit the "Clear" button to open the registry from the top."
  12. "AUTHOR"="Pierre Szwarc"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ 2000 by Xteq Systems"
  15.  
  16. 'Declaration of some constants
  17. sCpos = "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey"
  18.  
  19. 'Called when the Plugin is started
  20. SUB Plugin_Initialize
  21. END SUB
  22.  
  23. 'Called when the Plugin should validate the Data the user has entered
  24. SUB Plugin_CheckData(ElementIndex)
  25. END SUB
  26.  
  27. 'Called when the Plugin should apply the changes
  28. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  vS = RegReadValue(sCpos)
  30.  if IsEmpty(vS) = false then
  31.    RegDeleteValue sCpos
  32.    MsgInformation "Current position cleared."
  33.  else
  34.    MsgInformation "Nothing to clear!"
  35.  end if
  36. END SUB
  37.  
  38. 'Called when the Plugin is about to be removed from memory
  39. SUB Plugin_Terminate
  40. END SUB
  41.